<!--#Include File="Include.asp"--><%
'--------------------------------------
'Power By 方卡在线 @2010-2014 f02
'URL:http://www.fangka.net/
'EMail:admin@ifangka.com
'QQ:861118936
'版权所有 未经允许不得去除本版权信息
'--------------------------------------

'获取变量
Id=Clng(Request.QueryString("Id"))

Sqlstr="Select Fk_View_Id,Fk_View_Click From [Fk_View] Where Fk_View_Show=1 And Fk_View_Id=" & Id
Rs.Open Sqlstr,Conn,1,3
If Not Rs.Eof Then
%>
if(document.getElementById("viewClick")){
    document.getElementById("viewClick").innerHTML=<%=Rs("Fk_View_Click")+1%>;
}
<%
	Application.Lock()
	Rs("Fk_View_Click")=Rs("Fk_View_Click")+1
	Rs.Update()
	Application.UnLock()
End If
Rs.Close
Call FKFun.PageEnd()
%>
